home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 11,000 to 11,999 / 11000.zip / AOLDLs / CHIP [Top-Software Aktuell] / CHIP 10_97 Makro Seite 133 / KALEND~1.txt < prev   
Text File  |  2014-12-21  |  2KB  |  35 lines
  1. Option Explizit
  2.  
  3. Sub KalenderEinfⁿgen()
  4. Dim Z; S; Jahr; Monat; Tag
  5.   Jahr = AktiveZelle
  6.   Wenn Nicht IstDatumZeit("1.1." & Jahr) Dann Ende
  7.   Wenn Jahr < 1900 Oder Jahr > 2078 Dann Ende
  8.   Z = AktiveZelle.Zeile
  9.   S = AktiveZelle.Spalte
  10. 'Formatierungen und Ausgangswerte
  11.   Bereich(ZelleListe(Z; S + 1); ZelleListe(Z; S + 12)).Zahlenformat = "MMM"
  12.   Bereich(ZelleListe(Z; S + 1); ZelleListe(Z; S + 12)).HorizontaleAusrichtung = xlZentriert
  13.   Bereich(ZelleListe(Z + 1; S); ZelleListe(Z + 31; S)).Zahlenformat = "0""."""
  14.   Bereich(ZelleListe(Z + 1; S); ZelleListe(Z + 31; S + 12)).HorizontaleAusrichtung = xlLinks
  15.   Bereich(ZelleListe(Z + 1; S + 1); ZelleListe(Z + 31; S + 12)).Zahlenformat = "TTT"
  16.   Bereich(ZelleListe(Z; S); ZelleListe(Z + 31; S + 12)).RahmenListe.Farbe = RGB(0; 0; 0)
  17.   Bereich(ZelleListe(Z; S); ZelleListe(Z + 31; S + 12)).Innenbereich.Farbe = RGB(255; 255; 255)
  18.   Bereich(ZelleListe(Z + 1; S); ZelleListe(Z + 31; S + 12)).Formel = ""
  19. 'Felder ausfⁿllen
  20.   Fⁿr Monat = 1 Bis 12
  21.     ZelleListe(Z; S + Monat) = ZuDatumZeit(1 & "." & Monat & "." & Jahr)
  22.     Fⁿr Tag = 1 Bis 31
  23.       ZelleListe(Z + Tag; S) = Tag
  24.       Wenn IstDatumZeit(Tag & "." & Monat & "." & Jahr) Dann
  25.         ZelleListe(Z + Tag; S + Monat) = ZuDatumZeit(Tag & "." & Monat & "." & Jahr)
  26.         Wenn Wochentag(ZelleListe(Z + Tag; S + Monat)) = 1 Dann
  27.           ZelleListe(Z + Tag; S + Monat).Innenbereich.Farbe = RGB(244; 200; 200)
  28.         SonstWenn Wochentag(ZelleListe(Z + Tag; S + Monat)) = 7 Dann
  29.           ZelleListe(Z + Tag; S + Monat).Innenbereich.Farbe = RGB(224; 224; 224)
  30.         Ende Wenn
  31.       Ende Wenn
  32.     NΣchste
  33.   NΣchste
  34. Ende Sub
  35.